open(BUFF,"input_file")or die "no file found\n";
#$line=<BUFF>;
#./backup/s_0917401553.chr
while($line=<BUFF>)
{
	chomp($line);
	if($line !~   m/^#/)
	{
		@arr = split("\t",$line);
		$names = `ls ./backup/$arr[1].chr`;
		print "dealing with $. $arr[1]\n";
		@names = split("\n",$names);
		for($i=0;$i<@names;$i++)
		{
			print "dealing with $. $arr[1] $names[$i]\n";
			$file = "./backup/$arr[1].chr/".$names[$i];
			if (-e $file) 
			{
				system("gunzip $file");
				$file1 =$file;	
				$file1 =~ s/\.gz$//g;
				system("bgzip $file1");
				system("tabix -p vcf -f $file");
				#print $file."\n";
				
			}
		}
	}
}
